BMUG PD-ROM A/PD-ROM A.iso/HyperCard/Games/HyperArchy/HyperArchy Manual/background_2331.txt

Text File | 1990-02-11 | 8.9 KB | 433 lines

-- background: 2331 from stack: in
-- bmap block id: 7999
-- flags: 0000
-- background id: 0
-- name:


-- part 16 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=76 top=43 right=63 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Self Name
----- HyperTalk script -----
on mouseUp
  show card field "Self Name Text"
end mouseUp


-- part 18 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=11 top=64 right=194 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Child IDs
----- HyperTalk script -----
on mouseUp
  show card field "Child IDs Text"
end mouseUp


-- part 19 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=11 top=21 right=42 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Parent ID
----- HyperTalk script -----
on mouseUp
  show card field "Parent ID Text"
end mouseUp


-- part 20 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=76 top=21 right=42 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Parent Name
----- HyperTalk script -----
on mouseUp
  show card field "Parent Name Text"
end mouseUp


-- part 21 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=11 top=43 right=63 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Self ID
----- HyperTalk script -----
on mouseUp
  show card field "Self ID Text"
end mouseUp


-- part 22 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=200 top=315 right=337 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create Child
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "Create Child"
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=304 top=315 right=337 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "Delete"
end mouseUp


-- part 27 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=200 top=291 right=313 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create Peer
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "Create Peer"
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=96 top=291 right=313 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort: Parent
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "Sort: Parent"
end mouseUp



-- part 32 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=76 top=64 right=84 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Parent Stack Name
----- HyperTalk script -----
on mouseUp
  show card field "P Stack Name Text"
end mouseUp


-- part 31 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=76 top=85 right=105 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Child Stack Name
----- HyperTalk script -----
on mouseUp
  show card field "C Stack Name Text"
end mouseUp


-- part 34 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=447 top=313 right=339 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Debug
----- HyperTalk script -----
on mouseUp

  if the hilite of me is true then
    hide field "Parent ID"
    hide field "Self ID"
    hide field "Child IDs"
    hide field "Parent ID"
    hide field "Parent Stack Name"
    hide field "Child Stack Name"
    show field "Data"
    hide menubar
  end if

  if the hilite of me is false then
    hide field "Data"
    show menubar
    show field "Parent ID"
    show field "Self ID"
    show field "Child IDs"
    show field "Parent ID"
    show field "Parent Stack Name"
    show field "Child Stack Name"
  end if

  set the hilite of me to not (the hilite of me)
end mouseUp



-- part 35 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=9 top=68 right=280 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Data
----- HyperTalk script -----
on mouseUp
  send mouseUp to bkgnd btn "Debug"
end mouseup


-- part 40 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=96 top=315 right=337 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort: Name
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "Sort: Name"
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=297 right=325 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Next Peer
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "To Next Peer"
end mouseUp


-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=297 right=325 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Previous Peer
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "To Previous Peer"
end mouseUp


-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=31 top=281 right=312 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 32488 / 32488
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Parent
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "To Parent"
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=31 top=312 right=342 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 2335 / 2335
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Last Child
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  show card field "To Last Child"
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=304 top=291 right=313 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Terms
----- HyperTalk script -----
on mouseUp
  if hilite of me is false then
    set hilite of me to true
    show field "Terms"
  else
    set hilite of me to false
    hide field "Terms"
  end if
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=374 top=263 right=287 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return to Manual
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 48 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=76 top=21 right=274 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Terms
----- HyperTalk script -----
on mouseUp
  set hilite of bkgnd btn "Terms" to false
  hide me
end mouseUp